#!/usr/bin/perl

use XML::SAX::ParserFactory;
use XML::Validator::Schema;

my $schema = '2_4.xsd';
my $xml = 'quiniela.xml';

my $validator = XML::Validator::Schema->new(file => $schema);
my $parser = XML::SAX::ParserFactory->parser(Handler => $validator);

eval { $parser->parse_uri($xml) };

if ($@) {
	die "Error: $@";
} else {
	print "Correcto\n";
}
